home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1994 / 1 / 01 / e-compiler / e-compiler.ampk / E-Compiler / Sources / Examples / ReadArgs.e < prev    next >
Encoding:
Text File  |  1995-06-01  |  530 b   |  18 lines
  1. /* Use readargs() to get parameters instead of using the string 'arg'.
  2.    This is more convenient if more than one arg is needed. Uses kick 2.0 */
  3.  
  4. OPT OSVERSION=37
  5.  
  6. PROC main()
  7.   DEF myargs:PTR TO LONG,rdargs
  8.   myargs:=[0,0,0]
  9.   IF rdargs:=ReadArgs('UNIT/N,DISK/A,NEW/S',myargs,NIL)
  10.     WriteF('UNIT=\d\n',Long(myargs[0]))      /* integer */
  11.     WriteF('DISK=\s\n',myargs[1])            /* string */
  12.     WriteF('NEW=\d\n',myargs[2])             /* boolean */
  13.     FreeArgs(rdargs)
  14.   ELSE
  15.     WriteF('Bad Args!\n')
  16.   ENDIF
  17. ENDPROC
  18.